/* GUI CONVERTED from rerepma.p (converter v1.75) Fri Jun 22 15:25:39 2001 */
/* rerepma.p - REPETITIVE                                                     */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.15 $                                                           */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 7.3               LAST MODIFIED: 10/31/94   BY: WUG *GN77*       */
/* REVISION: 7.3               LAST MODIFIED: 03/03/95   BY: WUG *G0GJ*       */

/* REVISION: 8.6E    LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane           */
/* REVISION: 8.6E    LAST MODIFIED: 08/17/98   BY: *H1J5* Dana Tunstall       */
/* REVISION: 8.6E    LAST MODIFIED: 03/22/99   BY: *L0DN* Prashanth Narayan   */
/* REVISION: 9.0     LAST MODIFIED: 04/16/99   BY: *J2DG* Reetu Kapoor        */
/* REVISION: 9.1     LAST MODIFIED: 10/01/99   BY: *N014* Jeff Wootton        */
/* REVISION: 9.1     LAST MODIFIED: 08/12/00   BY: *N0KP* myb                 */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.15 $    BY: Hualin Zhong   DATE: 06/13/01 ECO: *N0ZF*          */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* REPETITIVE MODULE PARAMETER MAINT SUBPROGRAM                               */

define shared variable global_user_lang_dir like lng_mstr.lng_dir.
{gplabel.i} /* EXTERNAL LABEL INCLUDE */

for first mfc_ctrl
fields (mfc_char mfc_field mfc_label mfc_logical mfc_module
        mfc_seq mfc_type)
where mfc_field = "rpc_xfer_wip" no-lock:
end. /* FOR FIRST MFC_CTRL */

if not available mfc_ctrl then do:
   create mfc_ctrl.

   assign
      mfc_field = "rpc_xfer_wip"
      mfc_seq = 100
      mfc_module = "re"
      mfc_type = "l"
      mfc_logical = yes.
   mfc_label = getTermLabel("TRANSFER_WORK_IN_PROCESS",20).
end.

for first mfc_ctrl
fields (mfc_char mfc_field mfc_label mfc_logical mfc_module
        mfc_seq mfc_type)
where mfc_field = "rpc_eff_dflt" no-lock:
end. /* FOR FIRST MFC_CTRL */

if not available mfc_ctrl then do:
   create mfc_ctrl.

   assign
      mfc_field  = "rpc_eff_dflt"
      mfc_seq    = 110
      mfc_module = "re"
      mfc_type   = "c"
      mfc_char   = "1".
   mfc_label = getTermLabel("END_EFFECTIVE_DEFAULT_METHOD",24).
end.

for first mfc_ctrl
fields (mfc_char mfc_field mfc_label mfc_logical mfc_module
        mfc_seq mfc_type)
where mfc_field = "rpc_eff_days" no-lock:
end. /* FOR FIRST MFC_CTRL */

if not available mfc_ctrl then do:
   create mfc_ctrl.

   assign
      mfc_field  = "rpc_eff_days"
      mfc_seq    = 120
      mfc_module = "re"
      mfc_type   = "i".
   mfc_label = getTermLabel("END_EFFECTIVE_DAYS",16).
end.

for first mfc_ctrl
fields (mfc_char mfc_field mfc_label mfc_logical mfc_module
        mfc_seq mfc_type)
where mfc_field = "rpc_inc_yld" no-lock:
end. /* FOR FIRST MFC_CTRL */

if not available mfc_ctrl then do:
   create mfc_ctrl.

   assign
      mfc_field = "rpc_inc_yld"
      mfc_seq = 130
      mfc_module = "re"
      mfc_type = "l"
      mfc_logical = yes.
   mfc_label = getTermLabel("INCLUDE_YIELD",24).
end.

for first mfc_ctrl
fields (mfc_char mfc_field mfc_label mfc_logical mfc_module
        mfc_seq mfc_type)
where mfc_field = "rpc_using_new" no-lock:
end. /* FOR FIRST MFC_CTRL */

if not available mfc_ctrl then do:
   create mfc_ctrl.

   assign
      mfc_field = "rpc_using_new"
      mfc_seq = 140
      mfc_module = "re"
      mfc_type = "l"
      mfc_logical = no.
   mfc_label = getTermLabel("ENABLE_NEW_REPETITIVE",24).
end.

for first mfc_ctrl
fields (mfc_char mfc_field mfc_label mfc_logical
        mfc_module mfc_seq mfc_type)
where mfc_field = "rpc_zero_bal_wip" no-lock:
end.

if not available mfc_ctrl then do:

   create mfc_ctrl.
   assign
      mfc_field   = "rpc_zero_bal_wip"
      mfc_seq     = 170
      mfc_module  = "re"
      mfc_type    = "l"
      mfc_logical = yes.
   mfc_label = getTermLabel("ZERO_BALANCE_WORK_IN_PROCESS",20).

end. /* IF NOT AVAILABLE mfc_ctrl */
